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Summary 


This  report  presents  the  technical  progress  of  the  effort  on  Phase  1  of  a  project  at  the  Microelectronics 
and  Computer  Technology  Corporation  (MCC)  supported  by  the  Defense  Advanced  Research  Projects 
Agency  (DARPA). 

The  principal  project  objective  is  to  create  and  validate  a  concurrent  engineering  environment  for  the 
design  of  Multi-Chip  Modules  (MCMs). 

On  Phase  1,  the  focus  is  on  physical  design  of  MCMs.  The  objective  in  this  phase  is  to  integrate  four 
different  MCM  layout  systems:  EDGE,  Finesse,  Allegro  6.0  and  AutoCad.  The  principal  technical 
problem  addressed  in  this  period  was  the  integration  of  the  EDGE  layout  system  from  Cadence  Design 
Systems  to  the  ROSE  concurrent  engineering  object-oriented  data  manager.  This  problem  was  solved 
through  the  development  of  a  software  system  written  in  three  languages:  EXPRESS,  SKILL  and  C++. 

EXPRESS  was  utilized  to  state  the  information  model  that  ROSE  implements  and  manages.  SKILL  is 
supported  by  the  EDGE  system  and  was  utilized  to  read  and  write  to  the  EDGE  internal  database.  C++ 
was  utilized  to  link  the  ROSE  and  the  SKILL  data. 

In  the  course  of  this  work  we  have  determined  an  efficient  method  to  make  the  total  system  work,  and  a 
strategy  for  saving  and  updating  information.  We  plan  to  use  these  method  and  strategy  in  the 
subsequent  integration  tasks. 
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1 .  Project  Objectives 


1.1.  Phase  1 

•  To  create  a  concurrent  engineering  environment  suitable  for  the  physical  design  of 
Multi-Chip  Modules  (MCMs)  by  integrating  several  different  physical  layout 
Computer-Aided  Design  (CAD)  tools  through  data  sharing. 

•  To  validate  the  use  of  ROSE  as  a  concurrent  engineering  data  manager . 

•  To  validate  the  concurrent  engineering  approach  to  MCM  design. 

•  To  utilize  the  concurrent  engineering  environment  to  design  MCMs. 

1.2.  Phase  2 


Repeat  the  Phase  1  objectives  but  extending  them  individually  to  each  of  the  following 
areas: 


•  MCM  modeling. 

•  MCM  simulation. 

•  Design  for  testability. 

This  phase  will  begin  upon  funding  release. 
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2.  Progress  Overview 


2.1.  Technical  progress  achieved 

During  the  months  of  January  through  June  of  1992,  the  following  work  was  done: 

The  ROSE  software  was  acquired  and  installed.  Two  MCC  project  team  members  were  trained  at  the 
STEP  Tools,  Inc.  location  in  Troy,  NY.  Actual  installation  of  the  software  at  MCC  took  place  in  February, 
1992. 

Once  ROSE  was  installed,  the  rest  of  the  team  members  had  access  to  it  and  proceeded  to  take  the 
tutorial  course  that  came  with  it  in  order  to  become  proficient  in  its  use. 

Considering  that  the  application  we  have  in  mind  is  to  create  the  concurrent  engineering  environment 
suitable  for  the  physical  layout  of  MCMs  the  next  step  was  to  develop  a  layout  information  model  and  to 
implement  it  through  a  schema  in  order  to  store  and  retrieve  the  required  data  to  achieve  the  successful 
design  of  an  MCM. 

Following  this,  we  implemented  the  integration  between  ROSE  and  a  commercial  CAD  layout  package, 
EDGE  2.1 .,  which  is  a  product  from  Cadence  Design  Systems,  Inc. 

We  have  started  integration  work  between  Finesse,  (an  MCM  layout  package  from  Harris  Electronic 
Design  Automation)  and  ROSE,  and  also  between  Allegro  6.0  (a  product  from  Cadence  Design 
Systems.  Inc.)  and  ROSE. 
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3.  Technical  Problems 


3.1.  Problems  addressed 

During  the  period  covered  by  this  review,  we  have  focused  exclusively  on  Phase  1  objectives.  The 
principal  technical  problems  that  have  been  addressed  are  the  following: 

•  The  definition  of  the  entities  that  are  necessary  for  the  description  of  the  MCM 
layout  data,  taking  into  account  that  there  will  be  a  number  of  designers,  each  using 
one  of  a  variety  of  heterogeneous  design  systems  who  will  need  read/write  access 
to  it.  These  entities  are  the  building  blocks  from  which  the  information  model  is  built. 

•  To  determine  the  overall  architecture  of  the  concurrent  engineering  environment. 

•  To  determine  the  process  and  practice  through  which  the  actual  concurrent 
design  activity  win  take  place. 

•  To  implement  pertinent  solutions  to  these  problems. 
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4.  General  Methodology 


4.1.  Layout  Information  Model 

In  order  to  define  the  entities  needed  to  represent  the  MCM  layout  information  it  is  necessary  to 
understand  the  information  which  the  individual  CAD  systems  keep  and  which  is  required  and  needed 
for  their  proper  utilization.  Then  one  needs  to  abstract  and  deal  first  with  that  subset  which  is  common  to 
all  of  them  and  use  it  as  a  nucleus  or  core,  from  which  one  can  expand  and  tailor  to  include  what  will  be 
required  in  the  concurrent  use  of  the  integrated  systems. 

In  our  case,  there  are  two  basic  types  of  entities  : 

•  Geometric  information  entities. 

•  Connectivity  information  entities. 

Our  method  has  been  to  examine  what  data  types  are  required  by  a  system  which  is  predominantly  used 
for  layout,  which  we  expect  to  be  common  among  all  the  systems  to  be  integrated  and  then  to  find  which 
are  necessary  to  complete  the  picture  tor  systems  with  connectivity  intelligence.  Then  each  of  these 
identified  types  is  defined  as  an  abstract  entity.  The  information  content  is  expressed  through  the 
interrelationship  among  all  the  entities.  This  interrelationship  is  known  as  the  schema,  which  we  codify 
through  the  EXPRESS  language.  The  geometric  entities  we  have  included  up  to  date  are: 

•  Cells 

•  Arrays 

•  Cell  Instances 

•  Geometric  Primitives: 

•  Paths 

•  Ellipses 

•  Rectangles 
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•  Donuts 


•  Polygons 

•  Lines 

•  Points 

The  connectivity  entities  up  to  date  are: 

•  Element-Pin  pairs  (elPin) 

•  Net 

•  Netlist 

The  schema  that  implements  these  entities  is  listed  as  Appendix  A  of  this  report. 


4.2.  Concurrent  Engineering  Layout  System  Architecture 

At  present,  the  basic  architecture  of  the  system  is  represented  by  the  following  figure: 


Figure  1.  Architecture  of  Concurrent  Engineering  Design  System. 
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Figure  1  shows  the  four  types  of  physical  design  CAO  systems  we  will  be  working  with  in  Phase  1 ,  and 
two  ROSE  implementations  for  two  different  information  models:  the  one  introduced  in  the  previous 
section  and  the  other,  one  that  implements  the  Initial  Graphics  Exchange  Standard  (IGES)  which  is 
supported  by  STEP  Tools,  Inc..  IGES  is  a  very  general  (3-dimensional)  standard  to  represent  graphical 
information  and  quite  cumbersome  for  our  purposes  (NCGAJ.  However,  we  find  it  necessary  to  work  with 
it  because  systems  such  as  Allegro  6.0  accept  IGES  representation  of  graphical  data  as  their  input,  while 
not  providing  many  other  acceptable  means  to  reliably  input  data  from  external  sources,  nor  a  procedural 
language  to  read  or  write  to  its  internal  data. 

Allegro  6.0  is  capable  of  writing  out  its  layout  design  data  in  IGES  form. 

AutoCad  is  able  to  read/write  IGES  files  as  well,  so  once  the  link  is  achieved  for  Allegro  6.0,  we  expect 
AutoCad  will  also  be  integrated  to  the  system  in  the  same  form.  In  addition,  it  may  be  possible  in  the 
future  to  implement  a  more  direct  link  between  the  MCC  information  model  and  AutoCad  making  use  of 
direct  C  access  to  AutoCad's  database,  and  this  possibility  is  incorporated  into  Figure  1  by  the  presence 
of  a  direct  double-arrow  link. 

The  two  information  models  are  written  in  the  EXPRESS  language.  There  are  software  tools  form  STEP 
Tools,  Inc.  that  compile  those  models  into  C++  classes.  ROSE  then  provides  many  methods  to  create  the 
class  instances,  to  relate  them  according  to  the  schema  and  to  manage  them.  In  addition,  it  is  possible 
to  map  the  ROSE  objects  created  under  one  model  to  the  ones  created  under  the  other  through  C++ 
ROSE  code,  and  in  that  manner  the  integration  will  occur. 

The  link  between  Edge  and  ROSE  is  achieved  through  an  intermediate  text  form.  Data  goes  in  and  out 
of  EDGE  via  software  written  in  Cadence's  SKILL  language,  which  allows  read/write  access  to  EDGE's 
internal  data  structures.  The  link  to  ROSE  is  completed  through  a  parser  written  in  C++,  which  reads  the 
intermediate  form  and  creates  the  (C++)  objects  that  implement  the  layout  information  model  we 
introduced  in  the  previous  section.  In  the  opposite  direction,  C++  software  navigates  through  the  ROSE 
objects  and  creates  the  intermediate  form  description. 

For  the  Finesse  software  from  Harris  we  expect  it  will  be  possible  to  make  a  direct  link  between  ROSE 
and  it,  since  Harris  owns  the  Finesse  source  code. 
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4.3.  Concurrent  Engineering  Layout  System  Operation 

The  operation  of  the  system  is  visualized  through  Figure  2. 


Figure  2.  Concurrent  Engineering  System  Operation. 

The  basic  object  that  is  managed  by  ROSE  is  the  Cell.,  and  any  transaction  between  a  user  and  the 
system  involves  at  least  the  transfer  of  a  complete  Cell  entity.  That  implies  that  layout  designers  using 
the  system  should  see  that  data  be  organized  and  stmctured  in  such  a  way  as  to  make  the  transfer  of 
data  relatively  painless  by  limiting  the  individual  size  of  the  cells  they  construct.  Good  data  structuring  is 
desired  and  a  good  practice  regardless  of  concurrent  engineering  requirements,  but  in  our  case  it  is 
mandatory  since  N  users  of  the  system  must  be  updated  whenever  one  of  them  makes  a  change.  It  must 
be  stressed  here  that  ROSE  in  and  of  itself  does  not  impose  the  restriction  to  have  Cells  as  basic 
exchange  entities.  However,  from  the  practical  point  of  view,  if  one  considers  the  extreme  case  of 
defining  the  exchange  granularity  at  the  level  of  changing  say  the  location  of  just  a  point  within  a  polygon 
entity  plus  other  such  entities,  then  at  that  level  there  would  be  a  large  network  traffic  coming  from  all  the 
designers  as  they  do  their  work,  caused  by  relatively  minute  changes  in  their  own  local  databases, 
triggering  corresponding  ROSE  database  searches  for  the  objects  being  modified ,  added  or  deleted. 
Since  the  natural  unit  of  work  in  layout  is  the  Cell,  it  is  equally  natural  to  take  it  as  the  transaction  unit  and 
to  have  the  ROSE  data  update  only  when  the  designer  finishes  a  sizable  amount  of  work,  namely ,  a  Cell. 
This  approach  also  eliminates  the  need  for  database  searches  for  individual  objects,  as  the  whole  cell 
gets  updated  every  time.  However,  one  must  remember  the  need  to  keep  the  Cells  slim. 

Every  Cell  entity  is  stored  as  an  individual  ROSE  design.  The  storage  is  handled  in  one  dedicated 
workstation  with  efficient  disk  access,  where  a  custom  server  is  listening  for  user  requests  coming  from 
other  workstations  in  the  network,  and  which  when  requested  will  invoke  and  see  that  the  necessary 
ROSE-CAD  system  link  software  is  invoked  when  the  user  needs  to  store  or  read  an  update.  It  will  also 
notify  the  other  concurrent  engineering  team  members  whenever  there  are  updates.  These  users  then 
can  invoke  the  update  service  at  their  convenience. 
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As  a  user  reads  an  update,  a  backup  copy  of  his  current  working  design  is  kept.  If  a  team  member  finds 
the  update  unacceptable  for  any  reason,  he  must  communicate  with  the  other  team  members  as  to  why 
that  particular  update  is  not  good.  After  discussion  and  consensus  is  reached,  either  he  will  accept  the 
update  and  modify  whatever  else  he  needs  to  make  it  palatable,  or  else  the  unacceptable  cell  will  be 
further  modified  to  meet  his  requirements.  In  any  case,  any  designer  with  write  privileges  can  always 
reinstate  older  backup  cells  back  to  ROSE,  if  that  is  the  consensus. 

4.4.  Mechanism  to  save  and  update  information 

As  outlined  above,  the  Cell  is  the  basic  transaction  unit  we  envision  in  our  MCM  layout  concurrent 
engineering  environment.  As  a  designer  completes  work  on  a  Cell,  he  saves  it  to  his  CAD  system 
database  and  also  notifies  the  ROSE  server,  who  will  receive  the  data  and  create  the  ROSE  description 
of  the  Cell.  Because  the  server  runs  in  a  different  workstation  than  that  of  the  user,  the  designer  will 
experience  a  minimum  overhead  from  his  saving  to  the  ROSE  environment.  Since  the  Cell  updates  are 
not  occurring  frequently  the  network  traffic  is  minimized  that  way.  Once  the  Cell  has  been  stored  as  a 
ROSE  design,  the  ROSE  server  will  undertake  the  task  to  translate  it  to  all  the  other  formats  necessary 
to  update  the  other  CAD  systems,  and  will  notify  the  users  that  an  update  of  that  Cell  has  occurred. 

When  a  user  wants  to  update  his  data  from  ROSE,  he  will  notify  the  server  to  send  all  the  new  Cells 
received  since  his  last  update. 

4.5.  Special  considerations 

Certain  CAD  systems  have  implemented  their  internal  databases  with  a  minimum  of  hierarchy  to  them. 
Essentially,  these  systems,  which  have  evolved  from  Printed-Circuit  Board  layout  applications  to  the 
MCM  domain  keep  "packages",  "pad  stacks"  and  "boards"  as  basic  entities.  A  board  describes  the  MCM, 
and  contains  packages  and  interconnect .  The  packages  are  built  out  of  pad  stacks  and  other  geometric 
and  electrical  information.  These  systems  are  usually  very  useful  to  carry  out  the  routing  portion  of  the 
MCM  layout  task,  but  they  are  not  especially  suited  to  handle  large  amounts  of  data,  notably  for  the  case 
of  certain  MCM  technologies  which  customize  the  MCM  substrate  starting  from  a  generic,  prefabricated 
part  which  is  personalized  in  the  last  stage  of  manufacturing  [DC91].  Such  parts  are  mass  produced 
ahead  of  time  and  contain  a  great  deal  of  interconnect  which  will  end  up  not  used  by  the  personalization 
step  ( typical  utilization  runs  up  to  about  60%  of  available  interconnect  density  for  those  substrates).  In 
such  cases,  it  is  better  to  describe  the  part  in  full  in  a  hierarchical  CAD  system.  If  one  wants  to  use  a  non- 
hierarchical  CAD  system  for  the  routing  in  a  concurrent  engineering  approach  it  is  convenient  to  pass 
only  the  placement  information  and  the  netlist  to  it,  and  then  to  store  back  into  ROSE  the  interconnect 
generated.  Alternatively,  if  it  proves  to  be  possible  to  work  effectively  in  the  non-hierarchical  system  with 
all  the  MCM  data,  it  would  not  be  advisable  to  store  back  into  ROSE  the  full  design  after  routing  since 
that  would  create  a  flat  and  large  Cell  with  all  the  layout  data  in  it.  In  any  case  what  one  needs  is  to  only 
store  the  result  of  the  interconnect  (routing)  step  in  a  new  Cell,  to  be  shared  by  all  the  Concurrent 
Engineering  Environment  users.  Furthermore,  if  it  is  possible  to  carry  out  the  interconnect  step  itself  in  a 
sequence  of  smaller  interconnect  tasks  (e.g.  memory  subsystem  only,  followed  by  others)  it  is  advisable 
to  store  the  results  of  each  of  those  tasks  as  independent  Cells. 

Yet  another  scenario,  which  is  not  generally  applicable  but  which  covers  a  large  portion  of  cases, 
consists  in  having  all  members  of  the  design  team  collaborate  in  the  definition  of  the  basic  packages  and 
their  placement,  and  then  to  submit  the  interconnect  task  to  the  non-hierarchical  system  (or  systems ) 
as  the  last  step  of  the  layout  design  activity. 

In  order  to  implement  this  program,  it  is  necessary  to  establish  the  strategy  clearly  in  the  minds  of  the 
members  of  the  Concurrent  Engineering  team.  The  software  side  of  this  process  relies  on  the  fact  that  all 
objects  that  have  been  created  by  ROSE  carry  a  unique  identifier,  the  01 D  (Object  Identifier),  which  can 
usually  be  stored  by  the  CAD  system  as  a  property  of  the  entity  received.  Therefore  all  new  interconnect 
generated  locally  lacks  that  property  and  can  be  recognized  and  can  be  distinguished  from  the  previously 
existing  data.  Alternatively,  it  is  possible  to  generate  all  new  interconnect  in  some  special  layer,  different 
from  that  used  to  store  the  one  already  present.  In  this  way,  the  Cell  consisting  of  just  the  new 
interconnect  can  be  created  and  stored  as  a  new  ROSE  design  and  then  shared  by  all  other  users. 
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5.  Technical  Results 


5.1.  Cadence  Edge-ROSE  link  established 

During  this  reporting  period,  the  principal  technical  result  was  that  a  bi-directional  link  was  established 
and  demonstrated  between  the  Cadence  Edge  and  the  ROSE  systems.  The  fundamentals  of  how  this 
link  works  have  been  descrfoed  above  and  in  particular  in  the  discussion  of  Figure  1 .  The  MCC 
information  model  was  written  as  a  schema  in  the  EXPRESS  language.  This  schema  was  then  compiled 
into  C++  classes  through  the  express2c++  software  tool  from  STEP  Tools,  Inc.  [ST] 

At  the  same  time,  an  interface  to  the  internal  database  of  Cadence  Edge  was  developed,  making  use  of 
the  SKILL  language  from  Cadence  Design  Systems.  The  role  of  that  interface  is  to  allow  the  user  of  Edge 
to  save  his  work  both  to  the  Cadence  data  format  and  also  into  ROSE  objects,  and  also  to  allow  him  to 
read  in  any  updates.  The  mechanism,  as  described  earlier  is  to  go  through  an  intermediate  form.  That 
form  is  picked  up  by  the  other  side  of  the  software  interface  we  built.  On  the  way  in  to  the  ROSE  system, 
the  intermediate  form  is  parsed,  on  the  way  out  of  ROSE  the  object  representation  of  the  Cells  are  written 
in  the  intermediate  form. 

It  should  be  noted  that  when  the  Cadence  Edge  system  reconstructs  the  Cells  from  the  intermediate 
form,  it  requires  the  procedure  to  occur  from  the  bottom  up,  that  is,  simple  Cells  must  be  constructed 
before  building  more  complex  ones.  Since  every  Cell  is  represented  by  an  individual  intermediate  file  and 
an  individual  ROSE  design  file,  it  is  necessary  to  process  the  files  in  the  right  order.  A  special  auxiliary  file 
is  created  which  lists  the  subcells  of  any  given  cell  in  the  right  order. 

The  layout  schema  we  have  utilized  is  included  in  this  report  as  Appendix  A.  The  SKILL  software  is 
found  in  Appendix  B. 

The  parser  of  the  intermediate  form  into  ROSE  objects  was  written  using  YACC++.  A  simple  lexical 
analyzer  was  written  in  this  context.  The  code  to  write  out  ROSE  objects  into  the  intermediate  form  was 
written  in  C++  and  relies  heavily  on  the  ROSE  methods  to  navigate  and  manage  the  objects. 

The  parser  can  be  found  as  Appendix  C  and  the  ROSE-to-intermediate-form  code  is  in  Appendix  D. 

All  of  the  appendices  included  here  are  for  informational  purposes  only.  The  software  is  still  subject  to 
change  and  will  continue  to  change  at  least  through  the  duration  of  Phase  1  of  this  project. 
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6.  Conclusions 


6.1.  Phase  1  - 1992  Second  quarter 

We  have  successfully  integrated  the  first  of  four  MCM  layout  systems  to  the  ROSE  data  manager.  This  is 
the  first  step  in  the  implementation  of  a  concurrent  engineering  environment  for  the  design  of  MCMs  at 
MCC.  We  have  also  established  a  strategy  and  a  methodology  suitable  for  the  concurrent  design  effort, 
which  we  will  utilize  and  validate  during  the  design  activity  portion  of  this  project. 

Also,  as  part  of  the  validation  of  the  tools ,  we  will  be  in  a  position  to  check  the  performance  and 
throughput  of  the  ROSE  data  manager  once  our  heterogeneous  set  of  CAD  systems  is  fully  integrated. 
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Appendix  A 

A  Layout  Information  Model,  VI. 0 


r 

(*  Copyright  1992,  Microelectronics  and  Computer  Technology  Corporation  *) 
(*  All  rights  reserved 

r _ _ _ _ 


SCHEMA  cadence; 

ENTITY  Property; 
name:  STRING; 
property:  STRING; 
seHIdent:  STRING; 
END_ENTiTY; 

ENTITY  Point 

SUBTYPE  OF  (CadenceObj); 
x:  REAL; 
y:  REAL; 

END_ENT!TY; 

ENTITY  BBx 

SUBTYPE  OF  (CadenceObj); 
N:  Point; 
ur:  Point; 

END_ENTITY; 

ENTITY  Uyer 

SUBTYPE  OF  (CadenceObj); 
lyr:  INTEGER; 

LayerName:  STRING; 
END.ENTITY; 

ENTITY  True  Instance 
SUBTYPE  OF  (CadenceObj); 
rep:  Cell; 

blockName:  STRING; 
orient:  STRING; 
xy:  Point; 

END_ENTITY; 

ENTITY  Donut 

SUBTYPE  OF  (CadenceObj); 

bBox:  BBx; 

hole:  BBx; 

lyr:  Layer; 

shape:  STRING; 
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END_ENTITY; 


ENTITY  EUpseArc 
SUBTYPE  OF  (CadenceObj); 
bBox:  BBx; 
eWpsebBox:  BBx; 
lyr:  Layer; 
shape:  STRING; 

END_ENTITY; 

ENTITY  Label 

SUBTYPE  OF  (CadenceObj); 
draftingP:  BOOLEAN; 
font:  STRING; 
height:  REAL; 
justify:  STRING; 
labefType:  STRING; 
lyr:  Layer; 
orient:  STRING; 
rotatedp:  BOOLEAN; 
shape:  STRING; 
theLabel:  STRING; 
xy:  Point; 

END_ENTITY; 

ENTITY  Line 

SUBTYPE  OF  (CadenceObj); 
lyr:  Layer; 
nPath:  INTEGER; 
path:  LIST  OF  Point; 
shape:  STRING; 

END_ENTITY; 

ENTITY  Path 

SUBTYPE  OF  (CadenceObj); 
beg  in  Ext:  REAL; 
endExt:  REAL; 
lyr:  Layer; 
nPath:  INTEGER; 
path:  LIST  OF  Point; 
pathShape:  STRING; 
shape:  STRING; 
width:  REAL; 

END_ENTITY; 

ENTITY  Polygon 
SUBTYPE  OF  (CadenceObj); 
lyr:  Layer; 
nPath:  INTEGER; 
path:  LIST  OF  Point; 
shape:  STRING; 

END_ENTITY; 

ENTITY  Rectangle 
SUBTYPE  OF  (CadenceObj); 
bBox:  BBx; 
lyr:  Layer; 
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shape:  STRING: 
END_ENTITY; 

ENTITY  Tile 

SUBTYPE  OF  (CadenceObj): 
index:  INTEGER; 
orient:  STRING; 
rep:  Cell; 

END_ENT!TY, 

ENTITY  Mosaic 
SUBTYPE  OF  (CadenceObj); 
bBox:  BBx; 

numlnstances:  INTEGER; 
instanceList:  STRING; 
columns:  INTEGER; 
rows:  INTEGER; 
name:  STRING; 
personality:  LIST  OF  Tile; 
rep:  Cell; 
uX:  REAL; 
uY:  REAL; 
xy:  Point; 
orient:  STRING; 
END_ENTITY; 


ENTITY  Cell 

SUBTYPE  OF  (CadenceObj); 
blockName:  STRING; 
objList:  LIST  OF  CadenceObj; 
rapid:  STRING; 

END_ENTITY; 

ENTITY  elPin 

SUBTYPE  OF  (CadenceObj); 
pinName:  STRING; 
pinNum:  INTEGER: 
padRef:  Truelnstance; 
cellRef:  Truelnstance; 
END_ENTITY; 

ENTITY  Net 

SUBTYPE  OF  (CadenceObj); 
netName:  STRING; 
netNum:  INTEGER; 
elPinList:  LIST  OF  elPin; 
END_ENTITY; 

ENTITY  Netlist 
SUBTYPE  OF  (CadenceObj); 
netList:  LIST  OF  Net; 
END_ENTITY; 

ENTITY  CadenceObj; 
prop:  LIST  OF  Property; 
selfldent:  STRING; 
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ObW:  STRING; 
celType:  STRING; 
END.ENTITY; 

END_SCHEMA; 
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Appendix  B 
SKILL  programs,  VI  .0 


* 

*  Copyright  1992,  Microelectronics  and  Computer  Technology  Corporation  7 

*  All  rights  reserved  7 


7 


7 


;  Totcds2txt.il 

procedure(totcds2txt() 
rep  -  getWindowRep() 
level  -0 

masters  Visited  =  list() 
filename  »  nameGen(rep) 
homedir  -  get  Shell  EnvVarfHOME") 
dir  -  strcat(homedir  7design."  filename) 
system("mkdir  %s"  dir) 
totauthor(rep  filename) 
postorder(rep  filename) 

) 


procedure<pwrite(filename) 

homedir  *  getShellEnvVarfHOM  E") 
dir  «  strcat(homedir  7design."  filename) 
parsefile  =  strcat(dir  T  filename) 
parser «  getShellEnvVar("ROSE_PARSE") 
printf("%s  %s "  parser  parsefile) 
debug2  -  system("%s  %s“  parser  parsefile) 
printf("%d "  debug2) 

) 


procedure(nameGen(rep) 
prog  ((name  trepname  tblockname) 
name  =  rep~>fullPathName 
delimiter  =  T 
len  =  strien(name) 

revision  =  snipString(name  delimiter) 
revlen  =  1  +  strlen(revision) 
x  -  len  -  revlen 

trepname  =  substring(name  1  x) 
repname  -  snipString(trepname  delimiter) 
repten  »  1  +  strten(repname) 
y  -  ten  -  repten  -  revlen 
tblockname  =  substring(name  1  y) 
blockname  =  snipString(tbk>ckname  delimiter) 
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tempfile  -  strcat(btockname  delimiter  repname  delimiter  revision) 
retum<blockname) 

) 

) 

procedure<snipString(string  delimiter) 
prog((temp  snipped) 

temp  *  rindex(string  delimiter) 
snipped  =  substring(temp  2) 
retum(snipped) 

) 

) 

procedure(postorder(rep  tname) 

outname  -  strcat(dir  V  tname  ".tree") 
file  -  outfile(outname) 
headerlnfo(rep) 
ceHList(rep  1  "true"  0  0 ) 
close(file) 

sortedoutname  »  strcat(outname  ".postorder") 
systemfsort  -d  -r  -u  -o  %s  %s"  sortedoutname  outname) 


procedure(headerlnfo(rep) 

printtf**  Hierarchy  of  Design:  %s  %s\n"  rep~>blockName  rep~>repName) 
fprintf(file  "**  Hierarchy  of  Design:  %s  %s\n"  rep~>blockName  rep~>repName) 
foreach(i  rep~>prop 

if(i~>name  »«  "userUnits"  then 
printff**  User  Units :  %s  \n"  i~>vafue) 
fprintf(file  "**  User  Units  :  %s  \n"  i~>value) 

) 

if(i~>name  —  “graphicsEditorUnits  per  userUnit"  then 
printf("**  GraphicsEditorUnits  per  User  Unit  :  %f  \n"  i~>value) 
fprintf(file  "**  GraphicsEditorUnits  per  User  Unit  :  %f  \n"  i~>value) 

) 

) 

printf("\n") 
fprintf(file  -An") 


r 

The  procedure  cellList  is  a  recursive  routine  that  does  a  hierarchical 
traversal  of  the  design.  The  parameter  "absolute"  should  have  the  value 
"true"  to  make  all  coordinates  relative  to  the  top-level  cell.  The 
parameter  "absolute"  should  have  the  value  "false"  to  make  all  the 
coordinates  relative  to  the  next  higher  level  cell. 

7 

procedure(cellList(rep  level  absolute  x  y ) 
prog(  (tmprep  errorMessage  name  repList) 

printMessagefHierarchy  Traversal  in  Progress:  Looking  at  Cell:  %s"  rep~>blockName) 
foreach(inst  rep- instances 

if(  (inst->purpose  « "cdl")  &&  ( inst~>type  «» "truelnst")  then 
fprintf(file  "%d"  level) 
printf("%d"  level) 
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for(i  0  level 
fprintf(file "  “) 
printf(*  ") 

) 

name  -  inst~>master~>blockName 
bName  -  inst~>blockName 
rot  =  inst~x>rient 

printf("{Lev_%d)  %s  \n"  level  bName) 
fprintf(file  "(Lev_%d)  %s  \n"  level  bName) 
master » inst~>master 
if(!member(master  masters  Visited)  then 
totauthor( master  bName) 
masters  Visited  -  cons(master  mastersVisited) 

) 

repList  =  list("layout"  "symbolic") 
found  » "false" 

while(  car( repList)  I-  nil  &&  found  !-  "true” 
sprintf(cell  "%s  %s"  name  car(repList)) 
tmprep  =  dbOpen(  cell) 
if(  tmprep  !=  nil  then  found  «  "true") 
repList  *=  cdr(repList) 

) 

if(found  !=  “true"  then 

sprintf(  errorMessage  "Unable  to  open  *%s‘."  name) 
println(errorMessage) 
else 

if(tmprep~>instances  I-  nil  then 
level  -  level  + 1 
if(absolute  ■■  "true"  then 

new_x  -  x  +  xCoord(car(inst~>bBox)) 
new_y  -  y  +  yCoord(car(inst~>bBox)) 
cellList(tmprep  level  "tnie"  new_x  new_y) 
else 

cellList(tmprep  level  "false"  0  0) 

) 

level  =  level  - 1 

) 

dbClose(tmprep) 

) 

) 

if((inst~>purpose  ==  "ceir)  &&  (inst~>type  =«  "mosaicSublnst")  then 
fprintf(file  “%d"  level) 
printf("%d"  level) 
for(i  0  level 
fprintf(file "  ") 
printff"  ") 

) 

name  *  inst~>master~>blockName 
bName  *  inst~>blockName 
rot  *  inst~>orient 

if((rot  -«  nil)  then 
rot  =  "none") 

printf("(Lev_%d)  %s  \n"  level  bName) 
fprintf(file  "(Lev_%d)  %s  \n"  level  bName) 
master  -  inst~>master 
iff  lmember( master  mastersVisited)  then 
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totauthor(  master  bName) 

masters  Visited  -  cons(master  masters  Visited) 

) 

repList  *  list("layout"  "symbolic") 
found  -  "false" 

while(  car(repList)  !=  nil  &&  found  !=  "true" 
sprintf(cell  "%s  %s"  name  car(repList)) 
tmprep  =  dbOpen(  cell) 
if(  tmprep  !=  nil  then  found  =  "true") 
repList  =  cdr(repList) 

) 

if  (found  !=  "true"  then 

sprintf(  errorMessage  "Unable  to  open  ’%s'."  name) 
println(errorMessage) 
else 

if(tmprep~>instances  !=  nil  then 
level  =  level  + 1 
if( absolute  ==  "true"  then 

new_x  =  x  +  xCoord(car(inst~>bBox)) 
new_y  -  y  +  yCoord(car(inst~>bBox)) 
cellList(tmprep  level  "true"  new_x  new_y) 
else 

cellList(tmprep  level  "false"  0  0) 

) 

level  =  level  - 1 

) 

dbClose(tmprep) 

) 

) 

) 

) 

) 


procedure(totauthor(rep  tempname) 
prog((port  type  newfilename) 

newfilename  =  strcat(dir  V  tempname) 
port*outfile(  newfilename) 
if(((rep~>OID) »«  nil)  then 
dbCreateProp(rep  "OID"  "string"  "new")) 
fprintf(port  "Cellname:  \f) 
fprintfjport  "%s\n"  tempname) 
fprintfjport  "RepID:  \t") 
print!n(rep  port) 
fprintf(port  "OID  \t") 
fprintfjport  "%s\n"  (rep~>0ID)) 
foreach(el  rep~>shapes 
if(((el~>OID)  ==  nil)  then 
addoid(rep)) 

type=(el~>shape) 

if((type=="rectangle")  then 
fprintf(port  "shape  \t") 
fprintf(port  "%s\n"  (e)~>shape)) 
fprintf{port  "bBox  \t") 
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list2coords(port  (el~>bBox)) 
fprintf(port  "layer  VI") 
println((el~>layer)  port) 
fprintf(port  "OID  \t") 
fprintf(port  "%s\n"  (el~>OID)  port)) 

if((type=="poiygon")  then 
fprintf(port  "shape  \t") 
fprintfjport  "%s\n"  (el~>shape)) 

Ijjrintf  jport  "nPath  \t") 
println((el~>nPath)  port) 
fcrintf(port  "path  \t") 
list2coords(port  (el~>path)) 
fprintf(port  "layer  \t") 
println((el~>layer)  port) 
fprintf(port  "OID  \t") 
fprintfjport  "%s\n"  (el~>OID)  port)) 

if((type=="donut")  then 
fprintf(port  "shape  \1") 
fprintfjport  "%s\n"  (el~>shape)) 
fprintfjport  "bBox  \t") 
list2coords(port  (el~>bBox)) 
fprintf(port  "hole  \t") 

Iist2coords(port  (el~>hole)) 
fprintf(port  "layer  \t”) 
println((el~>layer)  port) 
fprintf(port  "OID  Vt") 
fprintfjport  "%s\n"  (el~>OID)  port)) 

if((type=="ellipse")  then 
fprintf(port  "shape  M") 
fprintfjport  "%s\n"  (el~>shape)) 
fprintfjport  "ellipseBBox  \t' ) 
if(!((el->ellipseBBox)  =**  nil)  then 

list2coords(port  (el~>ellipseBBox)) 

else 

print ln((el~>ellipseBBox)  port) 

) 

fprintf(port  "bBox  \t") 
list2coords(port  (el~>bBox)) 
fprintf(port  "layer  \t") 
println((el~>iayer)  port) 
fj3rintf(port  "OID  \t") 
fprintfjport  "%s\n"  (el~>OID)  port)) 

if((type=="label")  then 
fprintf(port  "shape  \i") 
fprintfjport  "%s\n"  (el~>shape)) 
fprintfjport  "draftingP  \t") 
fprirrtf(port  "%s\n"  (eh>draftingP)) 
farintf(port  "font  \t") 
fprintf(port  "%s\n"  (eh>font)) 
fprintf(port  "height  M") 
printlnj(el~>height)  port) 
fprintf{port  "justify  \t") 
fprintffport  "%s\n"  (el->justify)) 
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fprintf(port  "labefT ype  \t") 
fprintf(port  "%s\n“  (el-aJabefType)) 
fprintf(port  "orient  M “) 
fprintf(port  *%s\n"  (ei~>orient)) 
fprintfjport  "theLabei  \t") 
fprintf(port  "%s\n"  (ei~>theLabel)) 
fprintf(port  "xy  \t") 

fprintf(port "  %f  %f  \n"  car(el~>xy)  cadr(el~>xy)) 
fprintf(port  "layer  \t") 
println((el~>layer)  port) 
fprintf(port  "OID  \t") 
fprintf(port  "%s\n"  (ei~>OID)  port)) 

if((type=="line")  then 

fprintf(port  "shape  \t“) 
fprintf(port  "%s\n"  (ei~>shape)) 
fprintf(port  "nPath  \t") 
println((el~>nPath)  port) 
fprintf(port  "path  Vt") 

list2coords(port  (el~>path)) 
fprintf(port  "layer  \t") 
println((el~>layer)  port) 
farintf(port  "OID  \t") 
fprintf(port  "%s\n"  (el~>OID)  port)) 

if((type=="path")  then 

fprintf(port  "shape  M") 
fprintf(port  "%s\n"  (el~>shape)) 
fprintf(port  "nPath  VI") 
println((el~>nPath)  port) 
fcrintffport  "path  M") 

Iist2coords(port  (el~>path)) 
fprintf(port  "pathShape  VP) 
fprintf(port  "%s\n"  (el~>pathShape)) 
fprintf(port  "width  \t") 
println((el~>width)  port) 
forintf(port  "layer  \t") 
println((el~>layer)  port) 
forintf(port  "OID  \t") 
fprintf(port  "%s\n"  (el~>OID)  port)) 

) 

foreach(el  rep~>instances 

if((el~>purpose  ==  "cell")  &&  (el~>type  -■  "truelnst")  then 
if(((el~>OID)  ==  nil)  then 
addoid(rep)) 
fprintf(port  "cell  \t") 
fprintf(port  "%s\n"  (el~>blockName)) 
fprintf(port  "xy  \t") 

fprintf(port "  %f  %f  \n"  car(el~>xy)  cadr(eh>xy)) 

fprintf(port  "orient  \t") 

fprintf(port  "%s\n"  (el~>orient)) 

tprintf(port  "OID  \t") 

fprintf(port  "%s\n"  (el— >OID)  port)) 


if((el~>purpose  ==  "cell")  &&  (el~>type  =«  "mosaicSublnst")  then 
if(((el~>OID)  ==  nil)  then 
addoid(rep)) 
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fprintf(port  "array  Vt") 

fprintf(port  "%s\n"  (el~>blockName)) 
fprintf(port  "xy  Vt") 

fprintf(port "  %f  %f  \n"  car(el~>mosaic~>xy)  cadr(el~>mosaic~>xy)) 
fprintf(port  "columns  Vt") 
println((el~>mosaic~>columns)  port) 
fprintf  (port  "rows  Vt") 
println((eh>mosak»rows)  port) 
fprintf(port  "uX  Vt") 
println((el~>mosaic*'>uX)  port) 
fprintf(port  "uY  Vt") 
println((el~>mosaic~>uY)  port) 
fprintf(port  "orient  Vt") 

fprintf(port  "%sVn"  (car(el~>mosaic~>personality)~>orient)) 
fprintf(port  "01 D  Vt") 

fprintf(port  "%sVn"  (el->OID)  port)) 
acname  «  nameGen(el~>master) 
totauthor(el~>master  acname) 

) 

fprintf(port  "END  FILEVn") 
close(port) 

parsefile  =  strcat("design."  filename  T  tempname) 
system("parse++  %s"  parsefile) 

) 

) 


procedure(addoid(cellmaster) 

tcellname=strcat((cellmaster~>blockName) "  layout "  "current") 
tcelt-dbOpen(tcellname  nil  "a") 
foreach(obj  cellmaster~>shapes 
if(((obj~>OID)  ==  nil)  then 
dbCreateProp(obj  “OID"  "string"  "new")) 

) 

foreach(obj  cellmaster~>instances 
if(((obj~>OID)  ==  nil)  then 
dbCreateProp(obj  "OID"  "string"  "new")) 

) 

dbSave(tcell) 

dbClose(tcell) 

) 


procedure(list2coords(theport  alist) 
foreach(piece  alist 

Xcoord  =  car(piece) 

Ycoord  -  cadr(piece) 
fprintf(theport "  %f  %f "  Xcoord  Ycoord)) 
fprintf(theport  "Vn") 


Modcds2txt.il 


procedure(modcds2txt() 
rep  -  getWindowRep() 
level  -  0 

mastersVisited  =  list() 
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filename  -  modnameGen(rep) 
homedir  -  getShellEnvVar("HOME") 
dir  -  strcat(homedir  "/design."  filename) 
systemf mkdir  %s"  dir) 
modauthor(rep  filename) 
modpostorder(rep  filename) 
parsefile  -  strcat(dir  V  filename) 
parser  -  getShellEnvVar("ROSE_PARSE") 
system("%s  %s"  parser  parsefile) 

) 


procedure{modnameGen(rep) 
prog((name  trepname  tblockname) 
name  « rep~>fullPathName 
delimiter  =  V 
ten  -  strlen(name) 

revision  «  modsnipString(name  delimiter) 
revlen  -  1  +  strlen(revision) 
x  a  ten  -  revlen 

trepname  -  substring(name  1  x) 

repname  =  modsnipString(trepname  delimiter) 

replen  =  1  +  strlen(repname) 

y  «  ten  -  replen  -  revlen 

tblockname  =  substring(name  1  y) 

blockname  -  modsnipString(tbk>ckname  delimiter) 

tempfile  -  strcat(blockname  delimiter  repname  delimiter  revision) 

retum(blockname) 

) 

) 

procedure(modsnipString(string  delimiter) 
prog((temp  snipped) 

temp  =  rindex(string  delimiter) 
snipped  =  substring(temp  2) 
retum(snipped) 

) 

) 

procedure(modpostorder(rep  tname) 

outname  *  strcat(dir  T  tname  ’.tree") 
file  -  outfile(outname) 
modheaderlnfo(rep) 
modcellList(rep  1  "true"  0  0 ) 
close(fite) 

sortedoutname  =  strcat(outname  ".postorder") 
systemfsort  -d  -r  -u  -o  %s  %s"  sortedoutname  outname) 

) 

procedure(modheaderinfo(rep) 

printlj"**  Hierarchy  of  Design:  %s  %s\n"  rep~>blockName  rep~>repName) 
fprintf(file  "**  Hierarchy  of  Design:  %s  %s\n"  rep~>blockName  rep~>repName) 
foreach(i  rep~>prop 
if(i->name  «=  "usertinits"  then 
printf("**  User  Units  :  %s  \n"  i~>value) 
fprintf(file  "**  User  Units  :  %s  \n*  i~>value) 

An  MCM/Chip  Concurrent  Engineering  Validation  Appendices  •  25 


) 

if(i~>name  — "graphicsEditorUnits  per  userUnit"  then 
printf("**  GraphicsEditorUnits  per  User  Unit  :  %f  \n"  i~>value) 
fprintf(file  "**  GraphicsEdKorUnits  per  User  Unit  :  %f  \n"  i~>value) 

) 

) 

printffNn") 
fprintf(file  "\n") 


r 

The  procedure  modcellList  is  a  recursive  routine  that  does  a  hierarchical 
traversal  of  the  design.  The  parameter  "absolute"  should  have  the  value 
"true"  to  make  all  coordinates  relative  to  the  top-level  cell.  The 
parameter  "absolute"  should  have  the  value  "false"  to  make  all  the 
coordinates  relative  to  the  next  higher  level  cell. 

7 

procedure(modcellList(rep  level  absolute  x  y ) 
prog(  (tmprep  errorMessage  name  repList) 

printMessage("Hierarchy  Traversal  in  Progress:  Looking  at  Cell:  %s"  rep~>blockName) 
foreach(inst  rep~>instances 

if(  (inst~>purpose  —  "cell")  &&  ( inst~>type  «-  "truelnst")  then 
fprintf(file"%d"  level) 
printf("%d"  level) 
for(i  0  level 
fprintf(file "  ") 
printf("  ") 

) 

name  =  inst~>master~>blockName 
bName  =  inst~>blockName 
rot  =  inst~>orierrt 

printf("(Lev_%d)  %s  \n"  level  bName) 
fprintf(file  "(Lev_%d)  %s  \n"  level  bName) 
master  =  inst~>master 
if(!member(master  mastersVisited)  then 
modauthor(master  bName) 
mastersVisited  «  cons(master  mastersVisited) 

) 

repList  =  list("layout"  “symbolic") 
found  =  "false" 

while(  car(repList)  !**  nil  &&  found  I-  "true" 
sprintf(cell  "%s  %s"  name  car(repList)) 
tmprep  =  dbOpen(  cell) 
if(  tmprep  !=  nil  then  found  -  “true") 
repList  =  cdr(repList) 

) 

if(found  !=  "true"  then 

sprintf(  errorMessage  "Unable  to  open  *%s'."  name) 
println(errorMessage) 
else 

if  (tmprep- >instances  1=  nil  then 
level  =  level  + 1 
if(absolute  ==  "true"  then 
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new_x  -  x  +  xCoord(car(inst~>bBox)) 
new_y  ■  y  +  yCoord(car(inst~>bBox)) 
modcellList(tmprep  level  "true"  new_x  new _y) 
else 

modcellList(tmprep  level  "false"  0  0) 

) 

level  =  level  - 1 

) 

dbClose(tmprep) 

) 

) 

if((inst~>purpose  ==  "ceir)  &&  (inst~>type  --  "mosaicSublnst")  then 
fprintf(file  "%d"  level) 
printf{"%d"  level) 
for(i  0  level 
fprintf(file"  “) 
printff  ") 

) 

name  *  inst~>master~>blockName 
bName  =  inst~>blockName 
rot  =  inst~>orient 

tf«rot «  nil)  then 
rot  =  "none") 

printf(”(Lev_%d)  %s  \n"  level  bName) 
fprintf(file  "(Lev_%d)  %s  \n"  level  bName) 
master  -  inst~>master 
H(lmember(  master  masters  Visited)  then 
modauthorfmaster  bName) 
mastersVisited  *  cons(master  mastersVisited) 

) 

repList  -  list("layout"  "symbolic") 
found  *  "false" 

while(  car( repList)  !=  nil  &&  found  I-  "true" 
sprintf(cell  "%s  %s"  name  car(repList)) 
tmprep  =  dbOpen(  cell) 
if(  tmprep  !=  nil  then  found  -  "true") 
repList  =  cdr(repList) 

) 

if(found  !=  "true"  then 

sprintf(  errorMessage  "Unable  to  open  '%s'."  name) 
prirrtln(errorMessage) 
else 

if»-rr>rep^>jnS|ances  j_  nj|  then 

level  =  level  + 1 
if(absolute  ==  "true"  then 

new_x  *  x  +  xCoord(car(inst~>bBox)) 
new_y  =  y  +  yCoord(car(inst->bBox)) 
modcellList(tmprep  level  "true"  new_x  new_y) 
else 

modcellList(tmprep  level  "false"  0  0) 

) 

level  =  level  - 1 

) 

dbClose(tmprep) 

) 

) _ 
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) 


) 


) 


procedure(modauthor(rep  tempname) 
prog((port  type  filename) 

if(((rep~>modifiedButNotSavedP)  ==  "FALSE")  then 
retum(nil) 

) 

filename  -  strcat(dir  T  tempname) 
poit-outfile(filename) 
if(((rep~>OID)  —  nil)  then 
dbCreateProp{rep  "010"  "string"  "new")) 
tprintf(port  "Cellname:  \t") 
lprintf(port  "%s\n"  tempname) 

1printf(port  "RepID:  \t") 
println(rep  port) 
fprintf(port  "01 D  \t") 
fprintf(port  *%s\n"  (rep~>0ID)) 
foreach(ei  rep~>shapes 
if(((el~>0ID)  —  nil)  then 
modaddoid(rep)) 

type=(el~>shape) 

if((type=="rectangle")  then 
fprintf(port  "shape  \t") 
fprintf(port  “%s\n"  (el~>shape)) 
fprintf(port  "bBox  \t") 
modlist2coords(port  (el~>bBox)) 
fprintf(port  "layer  M") 
println((el~>layer)  port) 
fprintf(port  "OID  \t") 
fprintffport  "%s\n"  (el~>OID)  port)) 

if((type— “polygon")  then 
fprintf(port  "shape  \t") 
fprintf(port  "%s\n"  (el~>shape)) 
fprintf(port  "nPath  \T) 
println((el~>nPath)  port) 
forintf(port  "path  \i") 
modlist2coords(port  (el~>path)) 
fprintf(port  "layer  \t") 
println((el->layer)  port) 

^)rintf(port  "OID  \t") 
fprintf(port  "%s\n"  (el~>OID)  port)) 

if((type=="donut")  then 
fprintf(port  "shape  \t") 
fprintf(port  "%s\n"  (el~>shape)) 
fprintfjport  "bBox  \t") 
modlist2coords(port  (el~>bBox)) 
fprintf(port  "hole  \t") 
modlist2coords(port  (el->hole)) 
fprintf(port  "layer  \t") 
println((el~>layer)  port) 
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fprintf(port"OID\n 
fprintf(port  "%s\n"  (eJ~>OID)  port)) 

if((type==“ellipse")  then 
fprintf(port  "shape  \t") 
fprintf(port  "%s\n"  (el~>shape)) 
fprintf(port  "ellipseBBox  \f) 
if(!((el~>ellipseBBox)  ==  nii)  then 

modlist2coords(port  (el~>ellipseBBox)) 
else 

println((el~>ellipseBBox)  port) 

) 

fprintf(port  "bBox  \t") 
modlist2coords(port  (el~>bBox)) 
fprintf(port  "layer  \t") 
println((el~>layer)  port) 
fprintf(port  "01 D  \t") 
fprintf(port  "%s\n"  (el~>OID)  port)) 

if((type=="label")  then 

fprintf(port  "shape  \t") 
fprintf(port  "%s\n"  (ei~>shape)) 
fprintf(port  "draftingP  \t") 
fprintf(port  "%s\n"  (el~>draftingP)) 
fprintf(port  “font  \t") 
fprintf(port  "%s\n"  (el~>font)) 

^>rintf(port  "height  \t") 
println((el~>height)  port) 

<printf(port  "justify  \t") 
fprintf(port  "%s\n"  (eh>justify)) 
fprintf  (port  "labeiT ype  \t") 
fprintf(port  "%s\n"  (el~>laberType)) 
fprintf  (port  "orient  \t") 
fprintf(port  "%s\n"  (el~>orient)) 
fprintf(port  "theLabel  \t") 
fprintf(port  "%s\n"  (el~>theLabei)) 
fprintf(port  "xy  \t") 

fprintf  (port "  %f  %f  \n"  car(eh>xy)  cadr(el~>xy)) 
fprintfjport  "layer  \t") 
println((el~>layer)  port) 
fprintf(port  "OID  \t") 
fprintf(port  "%s\n"  (el~>OID)  port)) 


if((type=="line")  then 

fprintf(port  "shape  \t") 
fprintf(port  "%s\n"  (ei~>shape)) 
fprintf(port  "nPath  \t") 
println((el~>nPath)  port) 
fprintf(port  "path  \t”) 

modlist2coords(port  (el~>path)) 
fprintf(port  "layer  \t") 
println((el~>layer)  port) 
fprintf(port  "OID  \t") 
fprintf(port  "%s\n"  (el~>OID)  port)) 

if((type=="path")  then 
fprintf(port  "shape  Vt") 
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fprintf(port  “%s\n”  (el~>shape)) 
fprintf(port  "nPath  \t") 
println((el~>nPath)  port) 
farintf(port  “path  M") 
modiisl2coords(port  (el~>path)) 
fprintf(port  "pathShape  M") 
fprintf(port  "%s\n"  (eJ~>pathShape)) 
fprintf(port  "width  \i") 
println((el~>wkfth)  port) 

^Drintf(port  "layer  \t") 
println((el~>layer)  port) 
ftirintf(port  "OID  \t") 
fprintf(port  “%s\n"  (el~>OID)  port)) 

) 

toreach(el  rep- instances 

if((el~>purpose  «=  "cer)  &&  (el~>type  —  "truelnst")  then 
if(((el~>OID)  ==  nil)  then 
modaddoid(rep)) 
fprintf  (port  "cell  \t") 
fprintf(port  "%s\n"  (el~>blockName)) 
fprintf(port  "xy  \t") 

fprintf(port "  %f  %f  \n"  car(el~>xy)  cadr(el~>xy)) 

fprintf  (port  "orient  \t") 

fprintf(port  "%s\n"  (el~x>rient)) 

fprintf(port  "OID  \f) 

fprintf(port  "%s\n“  (el~>OID)  port)) 

if((el~>purpose  ==  "ceT)  &&  (el~>type  «« "mosaicSublnst")  then 
if(((el~>OID) ««  nil)  then 
modaddoid(rep)) 
fprintf  (port  "array  M") 

ferintf(port  *%s\n"  (el~>blockName)) 
fprintf(port  "xy  \t") 

fprintf(port "  %f  %f  \n"  car(el~>mosaic~>xy)  cadr(el~>nrx)saic~>xy)) 
fprintf(port  "columns  \f) 
println((el~>mosaic~>columns)  port) 
fprintf(port  "rows  \t") 
println((el->mosaic~>rows)  port) 
fprintf(port  "uX  \t") 
println((el->mosaic->uX)  port) 
fprintf(port"uY\t") 
println((el~>mosaic~>uY)  port) 
fprintf(port  "orient  \t") 

fprintf(port  "%s\n"  (car(el~>mosaic~>personality)~>orient)) 
fprintf  (port  "OID  \t") 

fprintf(port  "%s\n"  (el->OID)  port)) 
acname  «  modnameGen(el~>master) 
modauthor(el->master  acname) 

) 

(printf(port  "END  FILE\n") 

close(port) 

) 

) 


procedure(modaddoid(cellmaster) 
tcellnaine»strcat((cellmaster->blockName) "  layout "  "current") 
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tce8-dbOpen(tceHname  nil  "a") 
foreach(obj  ceHmaster~>shapes 
»(((obj~>OID) »  nil)  then 
dbCreateProp(obj  "OID"  "string-  "new")) 

) 

foreach(obj  ceilmaster~>instances 
if(((obj~>OID)  ~  nil)  then 
dbCreateProp(obj  "OID"  "string"  "new")) 

) 

dbSave(tcell) 

dbClose(tcell) 

) 


procedure(modlist2coords(theport  alist) 
foreach(piece  alist 

Xcoord  =  car(piece) 

Ycoord  =  cadr(piece) 
fprintf(theport "  %f  %f "  Xcoord  Ycoord)) 
fprintf(theport  "\n") 

) 
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Appendix  C 
C++  parser,  VI  .0 


r  v 

r  Copyright  1992,  Microelectronics  and  Computer  Technology  Corporation  V 
I*  All  rights  reserved  V 

r  *' 


%{ 

include  "rose.h" 

#include  "cadence,  h" 

#indude  <string.h> 

#i  nclude  <stdio.h> 

/*  declare  (List.Point): 
declare  (List.CadenceObj); 
declare  (List.Property); 
declare  (List.Tile);  V 
r  implement  (List.Point); 
implement  (List.CadenceObj); 
implement  (List.Property); 
implement  (List.Tile);  7 

typedef  struct  xyp  (double  x;  double  v }  *XYPAIR; 
struct  xyp  xypairl  ,xypair2; 


%} 


%unk>n  { 

double  num;  //  for  doubles  (REAL) 
char  *  name_ptr;  //  for  STRING 
int  val;  //forint  (INTEGER) 

XYPAIR  xypr;  //  for  xy  pairs 
BBx  *  bbx;  //  for  BBx 
Layer  *  lay;  //  for  layers 
Rectangle  *  red;  //  for  Redangles 
EllipseArc  *  ell;  //  F^r  Ellipse  Arcs 
Donut  *  donut;  /  .  Donuts 

ListOf Point  *  tra„  „  for  Lists  of  points 
Path  *  pat;  //  for  paths 

Polygon  *  poly;  //  for  polygons 

Label  *  lab;  //  for  labels 

Line  "line;  //for  lines 

Truelnstance  *  trueins;  //  for  true  instances 

Mosaic  *  mosaic;  //  for  Mosaics  or  arrays 

Cell  *  cell;  //  for  cells 

) 

%token  <val>  END 
%token  <val>  CELLNAME 
%token  <val>  REPID 
%token  <val>  OID 
%token  <val>  SHAPE 
%token  <val>  ELLIPSEBBOX 
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%token  <val>  BBOX 

%loken  <vab  LAYER 

%token  <val>  HOLE 

%token  <val>  NPATH 

%token  <val>  PATH 

%token  <val>  SHAPEPATHSHAPE 

"/•token  <val>  WIDTH 

%token  <val>  DRAFTINGP 

%token  <val>  JUSTIFICATION 

%token  <val>  ORIENTATION 

"/•token  <val>  LABELTYPE 

%token  <val>  THELABEL 

"/•token  <val>  FONT 

%token  <val>  HEIGHT 

%token  <val>  XY 

%token  <val>  CELL 

"/•token  <vab  ARRAY 

%token  <val>  ROWS 

%token  <vab  COLUMNS 

%token  <val>  DELTAX 

"/•token  <val>  DELTAY 

%token  <name_ptr>  ELLIPSESHAPE 
%token  <name_ptr>  RECTANGLESHAPE 
%token  <name_ptr>  POLYGONSHAPE 
"/•token  <name_ptr>  PATHSHAPE 
%token  <name_ptn>  LINESHAPE 
"/•token  <name_ptr>  LABELSHAPE 
%token  <name_ptf>  NIL 
%token  <name _ptr>  DONUTSHAPE 

%token  <vab  NUMBER 
%token  <num>  FNUMBER 
"/•token  <name_ptr>  STRING 

%type  <xypr>  xypair 

"/•type  <bbx>  bBox 

%type  <bbx>  ellipsebbox 

%type  <bbx>  hole 

%type  <rect>  rectangledescriptor 

"/•type  <rect>  rectangle 

%type  <lay>  layer 

%type  <elb  ellipsedescriptor 

%type  <ell>  ellipse 

%type  <donut>  donutdescriptor 

"/•type  <donut>  donut 

%type  <vab  npath 

%type  <traj>  trajectory 

"/•type  <pat>  path 

%type  <pat>  pathdescriptor 

"/•type  <num>  width 

%type  <name_ptr>  pathshape 

%type  <poly>  polygon 

%type  <poty>  polygondescriptor 

%type  <lab>  labeldescriptor 

%type  <lab>  label 

%type  <val>  draftingstatus 
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%type  <name_ptr>  font 
%type  <num>  height 
%type  <name_ptr>  justification 
%type  <name_ptr>  labeltype 
%type  <name_ptr>  orientation 
%type  <namej3tr>  theLabel 
%type  <xypr>  xy 
%type  <line>  line 
%type  <line>  linedescriptor 
%type  <trueins>  cellinstance 
%type  <val>  columns 
%type  <val>  rows 
%type  <num>  deitax 
%type  <num>  deltay 
%type  <mosaic>  arraydescriptor 
%type  <mosaic>  array 
%type  <name_ptr>  repid 
%type  <name_ptr>  oid 
%type  <cell>  cellcontents 
%type  <cell>  cell 

r  %type  <pattem>  devicedescriptor  VI*  if  you  want  to  return  from  stack  7 
%% 

texHile:  I*  nothing  7 
|  text Jile  cell  end 

end :  END  STRING 


cell :  CELLNAME  STRING  repid  oid  cellcontents  { $5*>biockName($2); 

$5->repid($3); 

$5->Obid($4); 

//  cout « form("Oid  =  %s\n",$5->Obid()); 

$$  -  $5; 

} 


repid  :  REPID  STRING  { $$  =  $2; } 

oid  :  OID  STRING  {  $$  =  $2; } 

xypair:  FNUMBER  FNUMBER  { 

xypairl.x  -  $1; 
xypairl  .y  -  $2; 

$$=  ftxypairl ; } 

cellcontents  :  /*  nothing  7  { Cell  *  cel^tr; 

cellptr »  pnew  Cell(); 
ListOfCadenceObj  *  Icoptr; 

Icoptr  *  pnew  ListOfCadenceObj(); 
celtptr->objList(lcoptr); 

$$  =  cellptr; 

} 

|  cellcontents  ellipse  oid  { ListOfCadenceObj  *  Icoptr; 

//  cout « form("Oid  «  %s\n",$3); 

$2->Obid($3); 

Icoptr  «>  $1->objList(); 
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'til 


fwpwp 


t 


lcoptr->add($2); 

} 


|  cellcontents  rectangle  oid  (  ListOfCadenceObj  *  Icoptr; 

$2->Obid($3); 

//  cout « formfOid  =  %s\n",$2->0bid()); 

Icoptr  =  $1->objList(); 
lcoptr->add($2); 

} 

|  cellcontents  donut  oid  {  ListOfCadenceObj  *  Icoptr; 

$2->Obid($3); 

cout « formfOid  =  %s\n",$2->0bid()); 
Icoptr  -  $1->objList(); 
lcoptr->add($2); 

} 

{ ListOfCadenceObj  *  Icoptr; 

$2->Obid($3); 

cout « formfOid  =  %s\n",$2->0bid()); 
Icoptr  -  $1->objList(); 
lcoptr->add($2); 

} 

{ ListOfCadenceObj  *  Icoptr; 

$2->Obid($3); 

cout « formfOid  =  %s\n",$2->Obid()); 
Icoptr  -  $1->objList(); 
lcoptr->add($2); 

} 

{ ListOfCadenceObj  *  Icoptr; 

$2->Obid{$3); 

cout « formfOid  =  %s\n",$2->Obid()); 
Icoptr  =  $1->objList(); 
lcoptr->add{$2); 

} 

|  cellcontents  polygon  oid  { ListOfCadenceObj  *  Icoptr; 

$2->Obid($3); 

//  cout « form("Oid  =  %s\n",$2->Obid()); 

Icoptr  =  $1->objList(); 
lcoptr->add($2); 

1 

|  cellcontents  cellinstance  oid  { ListOfCadenceObj  *  Icoptr; 

$2->Obid($3); 

//  cout « form("Oid  =  %s\n",$2->Obid()); 

Icoptr  =  $1->objList(); 
lcoptr->add($2); 

} 

|  cellcontents  array  oid  {  ListOfCadenceObj  *  Icoptr; 

$2->Obid($3); 

//  cout « formfOid  =  %s\n\$2->0bid()); 

Icoptr  =  $1->objList(); 
lcoptr->add($2); 

) 


ellipse  ;  SHAPE  ELLIPSESHAPE  ellipsedescriptor 
{  $3->shape($2); 

$$  =  $3; 


// 

|  cellcontents  path  oid 

// 

|  cellcontents  label  oid 

// 

|  cellcontents  line  oid 

// 
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} 


ellipsedescriptor :  ellipsebbox  bBox  layer 

{ 

EllipseArc  *  ellptr; 
ellptr  =  pnew  EllipseArc(); 
ellptr->lyr($3); 
ellptr->ellipsebBox($1 ) ; 
ellptr->bBox($2); 

$$  =  ellptr; 


ellipsebbox :  ELLIPSEBBOX  NIL 

{ 

BBx  'bbxptr  =  NULL; 

$$  =  bbxptr; 

} 

|  ELLIPSEBBOX  xypair  {xypair2.x  =  $2->x;  xypair2.y  =  $2->y;}  xypair 

{ 

BBx  'bbxptr; 
bbxptr  =  pnew  BBx(); 

Point  *pt1,'pt2; 
ptl  »» pnew  Point(); 
pt2  =  pnew  PointQ; 
pt1->x(xypair2.x); 
pt1->y(  xypair2.y); 
pt2->x($4->x); 

Pt2->y($4->y); 

bbxptr->ll(pt1); 

bbxptr->ur(pt2); 

$$  =  bbxptr; 

} 

bBox  ;  BBOX  xypair  {xypair2.x  «*  $2->x;  xypair2.y  -  $2->y;}  xypair 

{ 

BBx  'bbxptr; 
bbxptr  =  pnew  BBx(); 

Point  'ptl  ,*pt2; 
ptl  =  pnew  Point(); 
pt2  =  pnew  Pointj); 
pt1->x(xypair2.x); 
pt1->y(  xypair2.y); 
pt2->x($4->x); 
pt2->y($4->y); 
bbxptr->ll(pt1); 
bbxptr->ur(pt2); 

$$  =  bbxptr; 

} 


layer :  LAYER  NUMBER  { 

Layer  'lyrptr; 

lyrptr  =  pnew  Layer(); 
lyrptr->lyr($2); 

_ $$  =  lyrptr; _ 
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} 


rectangle :  SHAPE  RECTANGLESHAPE  rectangledescriptor  { $3->shape($2); 

$$  =  $3; 

) 


rectangledescriptor :  bBox  layer 
{ Rectangle  *recptr; 

recptr  *  pnew  RectangleQ; 

recptr->bBox($1); 

recptr->lyr($2); 

$$  =  recptr; 

} 

donut :  SHAPE  DONUTSHAPE  donutdescriptor  { $3->shape($2); 

$$  =  $3; 

} 


donutdescriptor :  bBox  hole  layer  { 

Donut  *  donptr; 
donptr  =  pnew  Donut(); 
donptr->lyr($3); 
donptr->bBox($1); 
donptr->hole($2); 

$$  =  donptr; 

} 

hole :  HOLE  xypair  {xypair2.x  -  $2->x;  xypair2.y  -  $2->y;}  xypair 

{ 

BBx  *bbxptr; 
bbxptr  =  pnew  BBx(); 

Point  *pt1,*pt2; 
ptl  =  pnew  Point(); 
pt2  -  pnew  Point(); 
pt1->x(xypair2.x); 
pt1->y(  xypair2.y); 
pt2->x($4->x); 
pt2->y($4->y); 
bbxptr->ll(pt1); 
bbxptr->ur(pt2); 

$$  =  bbxptr; 

} 

path :  SHAPE  PATHSHAPE  pathdescriptor  { $3->shape($2); 

$$  -  $3; } 

pathdescriptor :  npath  trajectory  pathshape  width  layer 
{ Path  *  pathptr; 

pathptr  =  pnew  Path(); 

pathptr->nPath{$1); 

pathptr->path($2); 

pat  hptr->pat  hShape($3) ; 

pathptr->width($4); 

pathptr->lyr($5); 

$$  =  pathptr; 

} 
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npath  :  NPATH  NUMBER  {$$  -  $2;} 

trajectory  :  PATH  xypair  {xypair2.x  -  $2->x;  xypair2.y  -  $2->y;)  xypair 
{ListOfPoint  *  lopptr; 

Point  *p1,*p2; 

lopptr  =  pnew  ListOf  Point() ; 

p2  =  pnew  Point(); 

p2->x(xypair2.x); 

p2->y(xypair2.y); 

pi  =  pnew  Point{); 

p1->x(xypair1  .x); 

p1->y(xypair1  .y); 

lopptr->add(p2); 

lopptr->add(p1); 

$$  =  lopptr; 

} 

|  trajectory  xypair  {Point  *pptr; 

pptr  =  pnew  Point(); 
pptr->x(xypair1.x); 
pptr->y(xypair1  .y); 

$1->add(pptr); 

$$-$1; 

} 

pathshape :  SHAPEPATHSHAPE  STRING  {$$  =  $2;} 

width  ;  WIDTH  FNUMBER  {$$  =  $2;} 

polygon :  SHAPE  POLYGONSHAPE  pdygondescriptor 
{  $3->shape($2); 

$$-$3; 

} 

polygondescriptor :  npath  trajectory  layer 
{  Polygon  *  polyptr; 

polyptr  =  pnew  Polygon(); 
polyptr->nPath($1); 
polyptr->path($2); 
polyptr->lyr($3); 

$$  -  polyptr; 

) 

label :  SHAPE  LABELSHAPE  labeldescriptor  { $3->shape($2);  $$  *=  $3; } 

labeldescriptor :  draftingstatus  font  height  justification  labeltype  orientation  theLabel  xy  layer 
{ Label  *  Iblptr; 

Iblptr  -  pnew  Label(); 
tolptr->draftingP($1); 
lblptr->font{$2); 
tolptr->height($3); 
tolptr->justify($4); 
folptr->labelType($5) ; 
fc»lptr->orient($6); 
lblptr->theLabel($7); 

Point  *  pptr; 

pptr  =  pnew  PointQ; _ 
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pptr->x($8->x); 
pptr->y($8->y); 
lblptr->xy(pptr); 
lblptr->lyr($9); 
$$  =  Iblptr; 

} 


draftingstatus  :  DRAFTINGP  STRING  { if(strcmp($2,TRUE“)  —  0)  $$  -  TRUE; 

else  $$  -  FALSE;} 

font :  FONT  STRING  {  $$  =  $2; } 

height :  HEIGHT  FNUMBER  { $$  =  $2; } 

justification  :  JUSTIFICATION  STRING  { $$  -  $2; } 

labeltype  :  LABELTYPE  STRING  { $$  -  $2; } 

orientation  :  ORIENTATION  NUMBER  { char  orient[50]; 

int  integ  -  $2; 

//orient « form("%s",(char  *)(&integ»; 

//  istream  itoken; 

//  itoken.istream(&integ); 

//  itoken  »  orient; 

//  strcpy(orient,'0"); 
r  sprintf(orient,"%s“,$2);  7 
//  $$  =  orient; 

if(integ  —  0)  strcpy(orient,"0"); 
ifjinteg  ««  90)  strcpy(orientl"90"); 
if(integ  -» 180)  strcpy(orient,,,180,'); 
if  (integ  —  270)  strcpy(orient,"2/0"); 

$$- orient; 

} 

|  ORIENTATION  STRING  {  $$  =  $2; ) 


theLabel :  THELABEL  STRING  {$$  -  $2;} 

| theLabel STRING  {int II ,12; 

11  =  strien($1); 

12  =  strien($2); 
char  *  cptr; 

cptr  =  malloc{l1+l2+2); 
strcpy(cptr,$1); 

strcat(cptr," "); 
strcat(cptr,$2); 

$$  =  cptr;} 

xy  :  XY  xypair  {$$  =  $2;} 

line ;  SHAPE  LINESHAPE  linedescriptor  ($3->shape($2);  $$  =  $3;} 

linedescriptor :  npath  trajectory  layer 
{  Line  *  lineptr; 

lineptr  =  pnew  Line(); 
lineptr->nPath($1); 
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Iineptr->path($2); 
lineptr->lyr($3); 
$$  =  lineptr; 


cellinstance  :  CELL  STRING  xy  orientation  { Truelnstance  *  tinsptr; 

tinsptr  =  pnew  Truelnstance(); 
tinsptr->blockName($2); 

Point  *  pptr; 

pptr  -  pnew  PointQ; 

pptr->x($3->x); 

pptr->y($3->y); 

tinsptr->xy(pptr); 

tinsptr->orient($4); 

$$  -  tinsptr; 

} 

array :  ARRAY  STRING  arraydescriptor  { $3->name($2);  $$  =  $3; } 

arraydescriptor :  xy  columns  rows  deltax  dettay  orientation 
{  Mosaic  *  mosptr; 

mosptr  -  pnew  Mosaic(); 

Point  *  pptr; 

pptr  =  pnew  Point(); 

pptr->x($1->x); 

pptr->y($1->y); 

mosptr->xy(pptr); 

mosptr->columns($2); 

mosptr->rows($3); 

mosptr->uX($4); 

mosptr->uY($5); 

mosptr->orient($6); 

$$  *  mosptr; 


columns :  COLUMNS  NUMBER  { $$  -  $2; } 

rows  ;  ROWS  NUMBER  { $$  -  $2; } 

deltax  :  DELTAX  FNUMBER  { $$  =  $2; } 

deltay  :  DELTAY  FNUMBER  {  $$  =  $2; } 

%% 


#include  <ctype.h> 
#indude  <stream.h> 
include  <string.h> 

char  *progname; 
fttebuf  fileto; 
istream  file(&fileb); 
int  lineno  -  1 ; 
int  eol=1; 


void  main(int  argc,  char  *‘argv) 

{ 


An  MCM/Chip  Concurrent  Engineering  Validation 


Appendices  •  40 


prog  name  «  argv[0]; 
if  (argc  —  2) 

{ 

if(fileb.open(argv(1],  input)  —  0) 

{ 

cout « formfSorry,  I  couldn't  open  %s  for  parsing\n",argv[1]); 
exit(1); 

} 

cerr « "Starting  Rose  design" « flush; 
ROSE.newDesign(argv(1]); 
cerr « "Starting  yyparse\n"; 
yyparse<); 

//  cerr « "Displaying.\n"; 

//  ROSE.displayO; 

cerr « "  SavingW; 

ROSE.saveDesign(); 

} 

else  yyerror("Usage:  parse++  input_file  \n"); 

} 

void  waming(char  *s,  char  *t) 

{ 

cout « form("%s;  %s".progname,  s); 
if(t) 

cout « form("  %s",t); 
cout « form("  near  line  %d\n",lineno); 


void  yyerror(char  *s) 

{ 

waming(s,(char  *)  0); 

} 

void  echo(char  *s) 

{ 

cout « form("%s  ",s); 

) 

char  *getToken(istream  ifile) 

{ 

static  char  buf[1024]; 
ifile  »  buf; 

il(ftfile)  {  cerr « "Null  read  from  input\n"; 
retum(NULL); 

} 

return  buf; 

1 

yyiex() 

i _ 
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chare; 

char  string[50J; 
char  "ptr; 

//  cout « formfValue  of  eol:  %d\n",eol); 
if(file.0Of())  return  0; 

file.get(c); 

H(  c  ==  *\n’)  { lineno++; 

eol  =  1; 

} 

whiie(c  ==  "  ||  c  ==  *\F  ||  c  —  W)  (if(fite.eof())  return  0; 

file.get(c); 

if(  c  ==  W)  { lineno++; 

eol  =  1; 

} 

} 

file.putback(c); 

{int  1=0; 

while(c  1=  "  &&  c  1=  *\t*  &&  c  1=  *\n')  {if(file.eof())  return  0; 

file.get(c); 
strir»g[i++]  =  c; 

} 

file.putback(c); 
string(i-1]  =  *\0'; 
c  -  string[i-2]; 

} 

//  file  »  string; 

int  ten  =  strlen(string); 

//  cout « form("Just  read;  %s\n",string); 

//  cout « formfThe  last  character  is  %s\n", string  +  ten  -1 ); 

//  cout « form("The  value  of  c  is;  %s\n",&c); 


// 


H  (eol  &&  c  !=  W) 

{ 

/*  keyword  */ 

cout « “Decided  it  is  a  keyword\n"; 
eol  =  0; 

ptr  =  (char  *)malloc(strlen(string)  +  1); 
if(ptr  ==  NULL) 

printf("Error  at  yytex()  allocating  memory  for  a  string\n“); 
exit(0); 


int  i; 

for(i=0;  i<(strlen(string)  +  1);i++)  *(ptr  + 


i)  -  A0*; 


// 


} 

strcpy(ptr,string); 

cout « form("ptr  contains  the  string:  %s\n",ptr); 
yylval.name_ptr  -  ptr; 
if(strcmp(ptr,"END")  ■=  0)  return  END; 
if(strcmp(ptr,"Cellname:")  •=  0)  { //  cout « "Passed  through  1\n"; 

return  CELLNAME; } 
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H(strcmp(ptr."ReplD:")  —  0)  { //  yyerror("Passed  through  2\n"); 

return  REPID; 

} 

if(strcmp(ptr1"OID")  =»  0)  return  01 D; 
if(strcmp(ptr, “shape")  --  0)  return  SHAPE; 

if(strcmp(ptr,"ellips8BBox")  —  0)  return  ELLIPSEBBOX; 
if(strcmp(ptr,"bBox")  -«  0)  return  BBOX; 
if(strcmp(ptr,"hole")  «=  0)  return  HOLE; 
if(strcmp(ptr,"nPath")  -«  0)  return  NPATH; 
if(strcmp(ptrt"path")  —  0)  return  PATH; 
if(strcmp(ptr,"pathShape")  «■  0)  return  SHAPEPATHSHAPE; 
if(strcmp(ptrl "width")  —  0)  return  WIDTH; 
if(strcmp(ptr,"draftingP")  -=  0)  return  DRAFTINGP; 
if(strcmp(ptr, "justify")  —  0)  return  JUSTIFICATION; 
if  (strcmp(ptr, "orient" )  ==  0)  return  ORIENTATION; 
if(strcmp(ptrt"labelType")  —  0)  return  LABELTYPE; 
if(strcmp(ptr,"theLabel") «  0)  return  THELABEL; 
if(strcmp(ptr,"xy")  —  0)  return  XY; 
if(strcmp(ptr,"font")  —  0)  return  FONT; 
if(strcmp(ptr1"heighf')  «■  0)  return  HEIGHT; 
if(strcmp(ptr,"ceir)  —  0)  return  CELL; 
if(strcmp(ptr, "array")  ==  0)  return  ARRAY; 
if(strcnp(ptr, "columns")  —  0)  return  COLUMNS; 
if(strcmp(ptr,"rows")  —  0)  return  ROWS; 
if(strcmp(ptr  ,’uX")  «=  0)  return  DELTAX; 
if(strcmp(ptr,"uY")  —  0)  return  DELTAY; 
if(strcmp(ptr, "layer")  ==  0)  return  LAYER; 


return  STRING; 

} 

if  (isdigit((int)c)  ||  c  ==  V  ||  c  « ’-') 

{ 

r  number  */ 

//  cout « "Decided  it  is  a  numberNn"; 

{Int  j,  dflag  =  0,  dateflag  =  0; 
tor(j«0;j<strlen(string);j++) 

{ if(isalpha(string[j]))  {  ptr » (char  *)malloc(strlen(string)  +  1); 

if(ptr  ==  NULL) 

{ 

printffError  in  yylex  () 

allocating  memory  for  a  stringNn"); 

exit(0); 

} 

{ 

int  i; 

for(i=0;  i<(strten(string)  +  1);i++)  "(ptr  + 

•) «  Y3'; 

} 

strcpy  (ptr, string); 
yylval.name _ptr  =  ptr; 
return  STRING; 


H(Ksdigit(stringO]) )  (dflag  *  1 ; 
(char)':*)  r  date  V 


if(string[j)  == 
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dateflag 


if(dflag  ==  1  &&  dateflag  «  0) 

{ yylval.num  -  atof(string); 
return  FNUMBER; 

else 

{  if  (dateflag  ==  0) 

{ 

yylval.val  =  atoi(string); 
return  NUMBER; 


ptr  =  (char  *)malloc(stden(string)  +  1); 
if(ptr  *«  NULL) 


printf("Error  in  yylex  ()  allocating  memory  for  a  string\n"); 
exit(0); 


for(i=0;  i<(str!en(string)  +  1);i++)  "(ptr  + 


i)  -  V)’; 


strcpy  (ptr.string); 

yylval.name_ptr  =  ptr; 
return  STRING; 

} 

} 


if  (isalpha((int)c)) 


I*  string  */ 

cout « "decided  it  is  alpha\n"; 

ptr  =  (char  *)malkx^strten(string)  +  1); 
if(ptr  ==  NULL) 

printf("Error  in  yyfex()  allocating  memory  for  a  string\n"); 
exit(0); 


i) « "VO*; 


for(i=0;  i<(strlen(string)  +  l);i++)  "(ptr  + 


strcpy(ptr,string); 

cout « form("ptr  contains  the  string:  %s\n",ptr); 
yylval.name_ptr  -  ptr; 


if(strcmp(ptr, "ellipse") »»  0)  return  ELLIPSESHAPE; 
jf(strcmp(ptr,"rectangte")  --  0)  return  RECTANGLESHAPE; 
if(strcrrp(ptr, "polygon")  «»  0)  return  POLYGONSHAPE; 

_ if(strcmp(ptr,"path")  —  0)  return  PATHSHAPE; _ 

An  MCM/Chip  Concurrent  Engineering  Vafkfation  Appendices  •  44 


if(strcmp{ptr,',line")  —  0)  return  LINESHAPE; 
if(strcmp(ptr  "label")  —  0)  return  LABELSHAPE; 
if(strcmp<ptr,"nil")  —  0)  return  NIL; 
if(strcmp(ptr"donut")  ==  0)  return  DONUTSHAPE; 


return  STRING;} 
return  c: 

} 
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Appendix  D 
ROSE  to  EDGE,  VI  .0 


/**«******«**************************«**«*****«***#******«********************************«*************J 
/* 

r  Copyright  1992,  Microelectronics  and  Computer  Technology  Corporation  */ 

I*  All  rights  reserved 

r 


#include  "rose.h" 

//  #include  "RoseOID.h" 

#include  "cadence,  h" 

#include  <string.h> 

#include  <stdio.h> 

#include  <ctype.h> 

#indude  <stream.h> 

#include  <string.h> 

//  BOOL  cvtOIDtoSTR(OID  oid,  STR  str); 

char  'progname; 
filebuf  fileb; 
ostream  file(&fileb); 
filebuf  treefileb; 
ostream  treefile(&treefileb); 
char  okJd(43]; 
chardimame{100]; 
char  filname(100]; 

/////////////////////////////////////////////////////////////////////////// 

// 

//  Ellipse 

// 

////////////////////////////////////////////////////////////////////////// 

void  write_ellipsearc(EllipseArc  *  elarc) 

{ 

file  « form("shape  ellipse\n"); 
if(elarc->ellipsebBox())  { 
file  « form("ellipseBBox  %1  %f  %f  %f\n",elarc- 
>ellipsebBox()->ll()->x(),elarc->ellipsebBox()->ll()->y(),elarc->ellipsebBox()->ur()->x(},elarc- 
>ellipsebBox()->ur()->y{));} 

else 

file  «  form("ellipseBBox  nil\n"); 

if  (elarc->bBox()) 

{ 

file  « form("bBox  %f  %f  %f  %f\n",elarc->bBox()->ll()- 
>x(),elarc->bBox()->ll()->y(),elarc->bBox()->ur()->x()1elarc->bBox()->ur()->y());} 

else 

file  « form(”bBox  nil\n"); 
file  «  torm(“layer  %d\n",elarc->lyr()->lyr()); 
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ROSE  jndex()->cvtOIDtoSTR(elarc-*oid(}  ,oidd) ; 
file  « form(“OID  %s\n",oidd); 

} 

/////////////////////////////////////////////////////////////////////////// 

II 

II  Donut 

// 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

void  write_donut( Donut  *  donut) 

{ 

file  « form("shape  donut\n"); 
if(donut->bBox{))  { 

file  « form("bBox  %f  %f  %f  %f\n*,donut->bBox()->ll()->x(),donut->bBox()->ll()- 
>y()1donut->bBox()->ur()->x(),donut->bBox()->ur()->y()};} 

else 

file  « formCbBox  nilVn**); 

if(donut->hole())  { 

file  « fomnfhole  %f  %f  %f  %f\n",donut->hole()->ll()->x(),donut->hole()->ll()- 
>y(),donut->hole()->ur()->x(),donut->hole<)->ur()->yO);} 

else 

file  « form(*hole  nil\n"); 
file  «  torm("layer  %d\n“,donut->lyr()->lyr()) ; 

ROSE.index()->cvtOIDtoSTR(donut->oid(),oidd); 
file  « formfOID  %s\n",oidd); 

} 

/////////////////////////////////////////////////////////////////////////// 

II 

II  Polygon 

// 

////////////////////////////////////////////////////////////////////////// 

void  write _polygon(  Polygon  *  polygon) 

{ 

file  « formfshape  polygon\n"); 

file  « formfnPath  %d\n",polygon->nPath()); 

file  «  torm("path  "); 
int  k; 

ListOf  Point  *list  *  polygon->path{); 
for(k»0;  k<  polygon->nPath();  k++) 

{ file  «  form(“%f  %f  ",(*list)[k]->x(),(*list)[kj->y()); ) 

file  « form("\nH); 

file  « form("layer  %d\n",polygon->lyr()->lyr()); 

ROSE.index()->cvtOIDtoSTR{polygon->oid()Ioidd); 
file  « formfOID  %s\n",oidd); 

} 

/////////////////////////////////////////////////////////////////////////// 

// 

it  Rectangle 

// 
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Illlltllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

void  write_rectangle<Rectangle  *  rectangle) 

{ 

file  « formfshape  rectangle\n"); 

file  « formf  bBox  %f  %f  %f  %f\n",rectangle->bBox()->ll()->x(), 

rectangle->bBox()->ll()->y(). 
rectangle->bBox()->ur()->x(), 
rectangle->bBox()->ur()->y{)); 
file  « form("layer  %d\n",rectangle->lyr()->lyr()); 
ROSE.index()->cvtOIDtoSTR(rectangle->oid()1oicJd); 
file  « formf  OID  %s\n",oidd); 


) 

lllllllllllllllllllllllllllltllllllllllllllllllllllllllllllllllllllllllllll 

II 

II  Path 

// 

////////////////////////////////////////////////////////////////////////// 

void  write_path(Path  *  path) 

{ 

file  « formfshape  path\n“); 

file  « form("nPath  %d\n”,path->nPath()); 

file  « form("path  "); 
int  k; 

ListOf Point  'list  =  path->path(); 
for(k=0;  k<  path->nPath();  k++) 

{ file  « form(-%f  %f  ",(*list)[k]->x(),(*list)[k]->y()); ) 

file  « formf\n"); 

file  « form("pathShape  %s\n" ,path->pathShape( ) ) ; 
file  « formf  width  %f\n",path->width()); 
file  « form("layer  %d\n".path->lyrO->lyr()); 
ROSE.index()->cvtOIDtoSTR(path->oid(),oidd); 
file  « form("OID  %s\n",oidd); 


) 

/////////////////////////////////////////////////////////////////////////// 

II 

II  Label 

// 

////////////////////////////////////////////////////////////////////////// 

void  write_label(Label  *  label) 

{ 

file  « formfshape  label\n"); 

if(label->draftingP())  { file  «  formfdraftingP  TRUE\n");} 

GlS6 

(file  « form("draftingP  FALSBn");} 

file  «  tormffont  %s\n",label->fontO); 

file  « formf height  %f\n",label->height()); 

file  « formfjustify  %s\n",label->justify()); 

file  « form("labelType  %s\n*,label->labelType{)); 

file  « formf orient  %d\n",atoi(label->orient())); 

file  «  form(*theLabel  %s\n",label->theLabel()); 

file  « form("xy  %f  %f\n",label->xy()->x().label->xy()->y()); 
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file  « formf  layer  %d\n",label->lyr()->lyr()); 
ROSE.index()->cvtOIDtoSTR(l«^)el->oid(),okld); 
file  « formf  OID  %s\n",otdd); 


} 

/////////////////////////////////////////////////////////////////////////// 

// 

//  Line 

// 

////////////////////////////////////////////////////////////////////////// 

void  write_line(Line  *  line) 

{ 

file  « formf  shape  line\n"); 

file  « formf  nPath  %d\n",line->nPath()); 

file  « formf  path  "); 
int  k; 

ListOf Point  ‘list  =  line->path(); 
for(k-0;  k<  line->nPath();  k++) 

{ file  « form("%f  %f  ",riist)[k]->x()1(*list)[k]->y()); } 

file  « form(”\n"); 

file  « formflayer  %d\n“,line->lyr()->lyr()); 
ROSE.index()->cvtOIDtoSTR(line->oid(),oidd); 
file  « formf  OID  %s\n",oidd); 


} 

/////////////////////////////////////////////////////////////////////////// 

// 

//  writejrueinstance 

// 

////////////////////////////////////////////////////////////////////////// 

void  write_trueinstance(Truelnstance  *  trueinstance) 

{ 

file  « formfcell  %s\n",trueinstance->blod<Name()); 

file  « form("xy  %f  %f\n",tnjeinstance->xy()->x(),trueinstance->xy()->y()); 

file  « formforient  %d\n",atoi(trueinstance->orient())); 

ROSE.Index()->cvtOIDtoSTR(trueinstance->oid()1oidd); 

file  « formfOID  %s\n",oidd); 


} 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

II 

//  Mosaic 
II 

iiiiilillllllllllillliiliiiiilllillllillllllllllllllllllllilllllllllllllll 

void  write_mosaic(Mosaic  *  mosaic) 

{ 

file  « form("array  %s\n‘,mosaic->name()); 

file  «  formfxy  %f  %f\n",mosaic->xy()->x(),mosaic->xy()->y()); 

file  « formfcolumns  %d\n",mosaic->columns()); 

file  « formf rows  %d\n",mosaic->rows()); 

file  « formfuX  %f\n",mosaic->uX()); 

file  « formfuY  %f\n",mosaic->uY()); 

fHe  « form(’orient  %d\n",atoi(mosaic->orient())); 

ROSE.index()->cvtOI  DtoSTR(mosaic*>oid(),oidd) ; 

file  « formfOID  %s\n",oidd); 
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} 

llllllllllllllllllllllllllllllltllllllllllllllllllllillllllllllllllllllllll 

// 

//  write_tree 

// 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

void  write_tree(List  (CadenceObj)  aList,  int  depth) 

{ 


int  n  =  aList. size(); 

for(int  i  =0;  i<  n;  i++) 

{ 

if(aList[i]->isa("Truelnstance")) 

{ 

char  localname{200]; 

for(int  m=0;  m<200;  m++)  localname[m]  =  *\0*; 

Truelnstance  *  trueinstance  =  ROSE_CAST(Truelnstance,  aListfi]); 

treefile  « form("%d  (Lev_%d)  %s\n",depth+1  ,depth+1  ,trueinstance->blockName()); 

strcat(localname,dirname)  ; 

strcat(localname.T); 

strcat(localname,trueinstance->bk)ckName()); 

RoseDesign  *  design  =  ROSE.useDesign(localname); 

List  (CadenceObj)  bList; 

ROSE.findObjects(&bList); 
int  k  =  bList.size(); 
for(int  j  =0;  j<k;  j++) 

{ 

if  ((bListO]->isa('T  ruel  nstance"))  1 1  (bListD]->isa("Mosaic"))) 

{ 

write_tree(bList,depth+1 ); 

} 

} 

} 

if(aList[i]->isa(”Mosaic")) 

{ 

char  localname{200]; 

for(int  m=0;  m<200;  m++)  localname{m]  =  AO'; 

Mosaic  *  mosaic  =  ROSE_CAST(Mosaic,  aListjij); 

treefile  « form(H%d  (Lev_%d)  %s\n",depth+1,depth+1,mosaic->name()); 

strcat(localname,dirname); 

strcat(localnr..!3,7“); 

strcat(localname,mosaic->name()); 

RoseDesign  *  design  =  ROSE.useDesign(localname); 

List  (CadenceObj)  bList; 

ROSE.findObjects(&bList); 
int  k  =  bList.size(); 
for(int  j  =0;  j<k;  j++) 
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.  *  V 


{ 

if((bListG]->isa("Truelnstance"))  ||  (bList(j)->isa("Mosaic"))) 

{ 

write_tree(bList,depth+1); 

} 

} 

} 

} 

} 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiuiiiiiiniiiiiiiiiiiiiiiiiiii 

11 

II  main 
// 

////////////////////////////////////////////////////////////////////////// 

void  main(int  argc,  char  **argv) 

{ 


progname  =  argv[0]; 
if  (argc  ==  3) 

{ 

strcpy(dirname,argv[1]); 
strcpy(filname,argv[2]) ; 
charfullname[200]; 
strcat(fullname,dimame); 

strcat(fullname,T); 

strcat(fullname,filname); 

if(fileb.open(fullname,output)  ==  0) 

{ 

cout « formfSorry,  I  couldn't  open  %s  for  output\n",argv[1]); 
exit(1); 

} 

cerr « "Reading  Rose  design" « flush; 

RoseDesign  *  design  =  ROSE.useDesign(fullname); 

//  CadenceObj  *  topcell  =  ROSE_CAST(CadenceObj,  design->root() ); 

List  (CadenceObj)  alist; 

ROSE.findObjects(&aList); 

int  n  =  aList.size(); 
char  treefilename[1 00]; 
strcpy  (treef  ilename.dirname) ; 
strcat(treef  ilename  ,T) ; 
strcat(treefilename.filname); 

strcat(treefilename,".tree.postorder"); 

for(int  i  =0;  i<  n;  i++) 

{ 


if(aList[i]->isa("CeH")) 

{ 

Cell  *  cell  =  ROSE_CAST(Cell,  aList[i]); 

file  « formC'Ccllname:  %s\n",cell->blockName()); 

file  « form("ReplD:  %s\n",cell->repid()); 

ROSE.index()->cvtOIDtoSTR(cell->oid(),oidd); 

file  « form("OlD  %s\n",oidd); 
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ListOfCadenceObj  *list  =  cell->objList(); 
int  siz  =  list->size(); 
int  k; 

for(k=0;  k<  siz;  k++) 

{ 

if((*list)[k]->isa("EllipseArc“)) 

{EllipseArc  *  elarc  =  ROSE_CAST(EllipseArc,(*list)[k]); 
write_ellipsearc(elarc); } 
if((*list)[k]->isa("Donut“)) 

{  Donut  *  donut  =  ROSE_CAST(Donut,(*list)[k]); 
write_donut(donut); } 
if((,ilist)[k]->isa("PolygonM)) 

{Polygon  *  polygon  =  ROSE_CAST(Polygon,(*list)[k]); 
write jx)lygon(polygon); } 
if((*list){k]->isa("Rectangle")) 

{Rectangle  *  rectangle  =  ROSE_CAST(Rectangle,(*list)[k]); 
write_rectangle(rectangle); } 
if((*list)[k]->isa("Path")) 

{Path  *  path  =  ROSE_CAST(Path,(*list)[k]); 
write_path(path); } 
if((*list){k]->isa("Label")) 

{Label  *  label  =  ROSE_CAST(Label,(*list)[k]); 
writ  e_label(  label); } 
if((*list)(k]->isa("Line")) 

{Line  *  line  »  ROSE_CAST(Line,(‘list)[k]); 
writejine(line); } 
if((*list)(k]->isa("Truelnstance")) 

{Truelnstance  *  trueinstance  =  ROSE_CAST(Taielnstance,(*list)[k]); 
write_trueinstance{trueinstance); } 
if((*list)(k]->isa("Mosaic")) 

{Mosaic  *  mosaic  =  ROSE_CAST(Mosaic,(*list)[k]); 
write_mosaic(mosaic); } 


} 

file  « formfEND  FILE\n"); 
if(treefileb.open(treefilename, output)  ==  0) 

{ 

cout « formfSorry,  I  couldn't  open  %s  foroutput\n",treefilename); 
exit(2); 

} 

int  depth  =  0; 
write_tree(aList, depth); 
treefile  « form("**\n"); 
treefileb.close(); 


} 

system(form("sort  -d  -u  -r  -o  %s  %s\n”,treefilename1treefilename)); 


else  cerr « formfUsage:  r2c  designdirname  designname  \n”); 

} 
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